home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / delbsy.zip / DELBSY.PAS < prev   
Pascal/Delphi Source File  |  1992-05-09  |  1KB  |  48 lines
  1. Program DelBusy;
  2. Uses Dos,STRNTTT5;
  3. Var
  4.    Parm1        : String;
  5.    Parm2        : string;
  6.    DT           : DateTime;
  7.    LDT          : LongInt;
  8.    SR           : SearchRec;
  9.    TestVar      : Longint;
  10.    BsyFile      : File;
  11.    Parm2W,
  12.    IOR,
  13.    sec100,
  14.    DOW          : Word;
  15.  
  16. Begin
  17.      Writeln ('DelBusy By Joe Jared of 1:125/1212@Fidonet');
  18.      If ParamCount <2 then begin
  19.         Writeln ('Purpose: Deletes busy files older than x minutes');
  20.         Writeln ('Example: Delbusy f:\binkley\flags 7200');
  21.         Writeln ('To kill all busy files older than 2 hours (7200 seconds)');
  22.         End;
  23.  
  24.      GetDate(DT.Year, DT.Month, DT.Day, DOW);
  25.      GetTime(DT.Hour,DT.Min, DT.Sec,Sec100);
  26.      Parm2W := Str_to_Int(Parm2) ;
  27.      PackTime(DT,LDT);
  28.      Parm1 := ParamStr(1)+'\*.bsy';
  29.      FindFirst(Parm1,Anyfile,SR);
  30.      IOR := DosError;
  31.      While IOR = 0 Do begin
  32.            TestVar := LDT - SR.Time;
  33.            If TestVar > Parm2W Then Begin
  34.               Writeln (Sr.Name, ' is ', TestVar, ' seconds old.');
  35.               Writeln ('Deleting');
  36.               Assign (BsyFile,Parm1+'\'+SR.Name);
  37.               Erase (BsyFile);
  38.               End
  39.            Else Writeln (SR.Name, ' is ' ,TestVar,' seconds old.');
  40.      Findnext(SR);
  41.      IOR := DosError;
  42.      End;
  43. End.
  44.  
  45.  
  46.  
  47.  
  48.